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FOREWORD 


This document describes the user input instructions for the 
use of a component cataloging technique developed by Martin 
Marietta Corporation, Denver Division under Contract NAS 8-29670 

The program was developed in satisfaction of two cataloging 
tasks under the above contract titled Space Tug Thermal Control 
for the National Aeronautics and Space Administration's George 
G. Marshall Space Flight Center. Mr. Jack D. Loose of the Astro 
nautics Laboratory, Propulsion and Thermal Branch served as the 
Technical Monitor. 

The program provides the thermal designer of spacecraft a 
means of documenting components in a standardized manner and 
serves as a reference to obtain necessary thermal design infor- 
mation. The catalogue which was prepared during the study was 
published as a separate document. Reference 1. 

Mr. Solomon H. Eichenbaum was the major contributor in the 
development of the catalogue. 
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INTRODUCTION 


The Space Tug Equipment Data Bank was developed under the 
Space Tug Thermal Control Study Contract NAS8-29670, This manual 
details the input instructions to the data bank, an explanation 
of the program and its output. The data bank was developed in 
satisfaction of two of the study tasks, the equipment thermal 
requirement catalog and the equipment characteristics and con- 
straints catalog. The data bank contains 109 components within 
Space Tug Avionics system. Other systems were not included in 
the data bank due to the available information, however, with some 
program modification, other systems could be incorporated into 
the data bank program. The data bank was developed and checked 
out and is compatible with the Univac 1108, and the CDC 6500 
operating systems. 

The data contained within the data bank is general in con- 
tent with emphasis on the component thermal design. The data 
is applicable to any spacecraft program where the components 
contained in the data bank can be applied in satisfaction of the 
system and subsystem requirements. 



Section 1 - Inputing Equipment Catalogue 

Space Tug Equipment Data Bank Input Procedure 

A preprinted form for inputing raw data to the equipment 
catalog data bank was developed to enable an easy input method. 
The preprinted form was used with corresponding prepunched cards 
so that once the raw data was filled in on the data sheets it was 
submitted for key punch with the prepunched cards and the data 
was punched to the cards. 

Table 1 shows the line and field length that corresponds to 
the raw data to be incorporated. The area is darkened to indi- 
cate the allocated space. Table 2 is a sample of a completed 
data sheet from the data bank. 

The following are instructicns to be followed in filling 
in the data sheets with input data. While following these 
instructions one should keep Table 1 in view for reference, 

1) Starting with page 1, line 1, field 69 through 72, 
fill in the page number in chronological order. This corres- 
ponds to the chronological order of the components being 

incorporated into the data bank. The field allows component 

✓ 

numbers from 1 through 9999 and is right hand justified (bbbl, 
bl02 etc,), 

2) Line 4, field 8 through 49 - fill in the system that 
component i is a part of e,g, AVIONICS SYSTEM, etc; input is 
left hand justified. 




TABLE 1 (COUCLUDED) 

SPACE TUG EqUIPMENT DATA BANK RAW DATA 

PHONE EXT 


PAGE 2 OF 


■lilll iiiiiiii 


iUIII 




■V.:--- 






wssn!i ^ 

m msaaa HBBaiiiiHm 

aiaaia Baiaaaaaiiaia aHjiiaMaMiiiaiiHi iHiiaaiiiiia migHiimi 

p Baa aiBHaBaaaaaaaaaa aBlaiB 
"■"■laailBBaBiaaBBiBiaamaBaaaaaBi 


iiamiiwiiiiiii l 




26 









3) Line 5, field 8 through 49 - fill in the subsystem that 
component i is part of e*g« DATA MANAGEMENT, etc; input is left 
hand justified, 

4) Line 7, field 3 through 6 - fill in the component 

identifier (see Appendix I) • Appendix I lists the available 
component names and their corresponding identifiers. These 
equipment identifiers are right hand justified. Note: if the 

identifier is mispunched in coliimns 3 through 6 or not Included 
in appropriate allocated space, the program will stop at that 
component and will print an output message indicating "xxxx 

is not a defined equipment item." Section 3.0 discusses 
modifying the program to add additional equipment identifiers 
for component names not included in program list, 

5) Line 7, field 7 through 9 - fill in the numerical order 
of component i, subject space is right hand justified, and avail- 
able code is from 1 through 999 per component i e,g, IMU bb3 or 
COMP b29, etc. 

6) Line 7, field 11 through 28 - fill in the component name 

or tit"e e,g. SKN-2400 IMU etc. Title is left hand justified. 

7) Line 7, field 31 through 48 - fill in if available, 

component i manufacturer (part number) e.g. SINGER COMPANY etc. 
Variable is left hand justified. 
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^ 8) Line 7, field 51 through 72 - fill in If available, 
component 1 manufacturer part number e.g* P/N-bPD9450027-005; 
item is left hand justified. Note: not all components have 

manufacturer part number and if item is not included, no problem 
occurs in the program. 

9) Lines 8, 9, 10 and 11, field 54 through 56 - fill in the 

minimum temperature value per each of the specified items. Tem- 
perature is in degrees F to the nearest Integer, range is from 
-99 to 999^, Note: do not Include plus sign if temperature has 

a positive value, 

10) Lines 8, 9, 10 and 11, field 62 through 64 - fill in 
the maximum temperature value per each of the specified items. 
Temperature as Indicated is in degrees F to the nearest integer, 
range of the program is from -99 to 999°F and is right hand justi- 
fied, 

11) Line 12, field 26 through 42 - fill in component i 

package shape. There are 3 acceptable shapes in the program CYLINDRICAL 
RECTANGULAR or SPHERICAL. The first 4 letters in each case CYLI, 

RECT and SPHE are used to identify the package shape. The program 

will accept the full package shape name or just the first 4 letters 
as long as the variable is left hand justified, e.g. CYLIbbbbb or 
CYLINDRICAL. Note: to add other package shapes to the program will 

require some additional program modifications. 



12) Line 13, field 29 through 33 - fill in the rectangle or 
cylinder length in inches to the nearest tenth of an inch. If 
package is a sphere, leave field blank. 

Field 43 through 47 - fill in for rectangular package the 
width, for a cylindrical or spherical package - fill in the 
radius to the nearest tenth of an inch. 

Field 58 through 62 - fill in only for a rectangular package 
the height in inches to the nearest tenth of an inch. Note: for 

cylindrical and spherical packages this field is left blank. All 
three dimensions are right hand justified, 

13) Line 14, field 26 through 42, fill in the case material. 
The program accepts only 5 materials with the first 4 letters of 
each being the identifying flag for the material. The variables 
are ALUMINUM, STAINLESS STEEL, MAGNESIUM, BERYLLIUM AND EPOXY. 

The addition of other materials will require program modifica- 
tions, The above variables are left hand justified, 

14) Lines 15 and 16, field 28 through 33 - fill in the 

corresponding weights in pounds to the nearest tenth of a pound, 
case weight on line 15 and the total weight on line 16 as indicated 
on data sheet. Note: items are right hand justified, 

15) Line 17, field 42 through 44 - fill in component i case 
solar absorbtivity. Variable is left hand justified, e,g, .900. 



Field 64 through 66 - fill in component i case surface emis- 
sivity. Variable is left hand justified, e*g. .900* 

16) Line 18, field 33 through 37 - fill in component i 
input steady state power (or average power) dissipated, in watts 
to the nearest 10th of a watt. 

Line 18, field 47 through 72 « fill in comments relative to 
variable power, e.g. 28 VDC power source or HAS VARIABLE HEATER 
POWER. Note: if comments are placed in this field, data must 

be placed on line 19 to indicate what the control power is, and 
if no control or variable power is needed enter a zero on line 
19. 

17) Line 19, field 7 through 11 - fill in component inaxiinuni 
control power in watts to nearest tenth of a watt, and in field 
16 through 18 - fill in the corresponding minimum temperature 

(in degrees F) for the above control power. These variables are 
right hand justified. 

Line 19, field 26 through 30 - fill in the component i minimum 
control power in watts to the nearest 10th of a watt, and in field 
35 through 37 - fill in the corresponding maximum temperature 
(in degrees F) for the above control power. (Note: If there 

is no control power for component i leave line 19 blank, unless 
line 18 column 47 through 72 has a comment, which will require 
the control power to be zeroed out. In addition note that data 



11 


can be inputted to represent watts load per watts power etc, as 
long as the input data is within the above prescribed field 
length, and unit is a battery or fuel cell, 

18) Line 20, field 33 through 37 - fill in component i 
output power in watts to the nearest 10th of a watt. For most 
components this is usually zero. 

■ Field 47 through 72 - comment concerning output power may 
be added, 

19) Line 21, field 32 through 38 - fill in component i 

thermal design for ground operation active or passive. Field 
45 through 51 - fill in component i thermal design for flight 
operation active or passive. Note: above variables are left 

hand justified, 

20) Line 24, fields 41 through 43, 53 through 55 and 66 
through 68 - fill in the non-mission on time requirement for 
component i for the three indicated time periods. No requirement 
of the component to be on indicate OFF, for component requirement 
to be on during above periods indicate YES, 

21) Line 25, field 37 throu^ 39, 52 through 54 and 65 

through 67* Fill in component i mission on-time requirements for 
the 3 indicated time intervals. The options available are ON 
for continuously on, OFF for off requirement and INT for 
intermittent. Note: variables are left hand justified, e,g, 

OFF, INT and ON. 



22) Lines 26 through 30, field 7 through 72, and page 2, 
line 1 and 2, field 7 through 72. The 7 lines are available for 
a narrative description of component i with emphasis on the unit 
physical characteristics and constraints and a more detail des- 
cription of the thermal design and constraints, e.g. see Table 

2 sample form, 

23) Page 2, line 4, field 14 through 72 and lines 5 and 6, 
field 7 through 72. The available space is to be used to list 
component i title, manufacturer and address. See Table 2 sample 
form. 

24) page 2, line 8 field 7 through 38 - fill in the name 
of the individual that supplied the information on component i, 
usually it is the manufacturer personnel but may be other 
individuals with knowledge of the particular component. 

25) Line 8, field 46 through 57 - fill in the area code 
and telephone of the individual that supplied the information on 
component i. Field 69 through 72 - fill in the individual exten- 
sion number. 

26) Page 2, lines 9 through 25, field 7 through 72. This 

allocated space of 17 lines is provided for general narrative 
information and detail description of the component. Reference 
to any printed material may also be made here. See Table 2 
for sample. Note: if component i has control power included in 



page 1, line 19, then the general description on page 2 must be 
reduced by one line to enable the data to be on one printed sheet, 

27) Having supplied the various input data the following 

option card is required after the last data card separated by 
an end of record card. Format for the card is as follows: Raw 

starting in column 1 - gives the raw data output; final starting 
in column 11, gives the final data output; Thereq starting in 
column 21 gives the Thermal Requirement Catalog and Char starting 
in column 31 gives the characteristics and constrains catalog. 

Note all or any of the four routines can be called as per user’s 
need. 

28) Control Cards - See Section 2,7 for deck setup and 


control card requirements. 



Section 2 ~ Program Description 


2.1 Introduction 

The Space Tug catalogue program is a Fortran 4 computer 
program consisting of 5 major subroutines. The subroutines are 
Page, RAW, Final, There q and CHAR, in addition there are 3 minor 
subroutines that are part of CHAR subroutines and they are Convrt, 
Sink and Timcon, Figure 1 presents a block diagram of the program. 

2.2 Page Subroutine 

This subroutine modifies the page nunibers from the data 
bank for both the printed raw data into a consistent and ordered 
set of pages. There should be no modifications made in this part 
of the program, 

2.3 Raw Subroutine 

Subroutine RAW provides the user a means of listing the 
information contained within the data bank for checkout and veri- 
fication purposes. The main reason for including the routine was 
to enable the user to get a listing of the data in the event that 
off line listing devices are not available. The routine is called 
after subroutine Page is called. Hence, the only change in the 

data is that the page numbers have been ordered. 

2.4 Final Subroutine 

Subroutine final takes the input data and converts it 
to international units for output in a similar format as the 
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raw data, with the English system of units printed in parenthesis* 

A sample of the Space Tug Equipment Data Bank Final data is shown 
in Table 3* The subroutine calls on subroutine CONVERT to do the 
actual temperature conversion from Fahrenheit to Kelvin, Sub- 
routine Final calculates the package surface area and volume and 
converts the dimension to the international system of units. 

2,5 Thereq Subroutine 

Subroutine Thereq is the section of the program that 
builds the equipment thermal requirements catalogue, a sample of 
this catalogue is shown in Table 4. The subroutine generates 
a table of all components in which the following variables are 
indicated: thermal design, ground and orbital (active or passive) , 

power requirements in watts, minimum and maximum mission phase 
thermal requirement and temperature limits in degrees Kelvin 
(Fahrenheit) minimum and maximum. The last item correlate on 
and off mission requirements with tenperature range. 

The program uses the following equation to calculate minimum 
and maximum power usage for = SSP + CPC - OP 

for = SSP + CPH - OP 

The minimum power is equal to steady state power (SSP) + minimum 
control power (CPC) - output power (OP), The maximum power is 
equal to steady state power (SSP) + maximum control power (CPH) - 
output power (OP) • 
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PHYSICAL CHAPACTERISTIC5 ANO CONSTRAINTS REMARKS 
• NON MISSION ON-TIMES ’^PPFLAUNCH OF^* A«^CENT OFF» REENTRY OFF 
MISSION ON-rlMfS ♦ SHJT/TUG OFF* TUG/0R81T INT* TUG/PAY INT 
yhF OMA ATM STAR TFACKFR IS A GIMOAllEO UNIT. THP ABOVE OIHENSIONS 
ARE EXTERIOR LIMITS SEE ^EF FOR MORE DETAIL DESCRIPTION. UNIT IS 
MARRIED TO ATM STAR TRACKER ELECTRONICS UNIT. UNIT HAS 3 INTERNAL 
HEATERS OF 1C WATTS EACH TWO OF THE HEATERS HAVE SET POINTS OF -23 
.3 ’■0 -15. D (-9.9 ""0 5.0 LEG.E) AND THE THIRD HEATER HAS SET POIN 
OF -15.3 TO -6.7 DEG C (5.5 TO 22,5 DEG.FJ. UNIT IS THERMALLY ISO- 
LATED, FAINTEO WHITE, AND HAS A SUPERINSLLA T ION BLANKET COVERING 

THE SKYLAe ATM CMA GIMRALLED STAR TRACKER IS DESIGN AND BUTlT 
BY THE BENOTX CORPORATION NAVIGATION ANO CONTROL DIVISION 
TFTER0ORO, NEW JERSEY C76n8. 

THE DATA CONTAINED HEREIN WAS OBTAINED POOM 

MP. JIM TCNGE PHONE 2Cl-2e8-20CC EXTENSION 6111 

THE APOU-0 telescope MOUNT (ATM) STAR TRACKER SYSTEM CONSISTS OF 
THE optical MECHANICAL ASSEMBLY (OMA) ANC A STAR TPA.CKtR ELcCTRO- 
MICS (STE), THE OMA CONSISTS CF A REFRACTIVE TELESCOPE MOUNTED 
IN A double GIMBAL SUSPENSION. EACH GIMEAL IS DRIVEN BY A BI^^ECT 
DRIVE O.C. TCRQUFR, WITH GIMBAL RATE CONTROL PROVIDED BY O.C, TACH 
OMEH^PS. THE TELESCOPE HAS A SCANNED FIELD-OF- VIE W OF 1 OEG SQUARE 
ANO AN instantaneous FIE L F-OF -VI E W OF IQ ARC MINUTE SQUARE. A COM- 
PTNATION SUN AND EARTH ALBEDO SHADE IS PROVIDED ALLOWING TRACKING 
OF STARS WITHIN 45 OEG OF THE SUN AMO 5 CEG OF THE EARTH.- THE STAR 
TRACKED ELECTRONICS, SEE STE 1, PROVIDES OTHER FUNCTIONS IN 
SUPPORT OF THE OMA. THE ATM STAR TRACKER IS CAPABLE OF 3 MQCES OF 
OPERATION, MANUAL, SEARCH, ANO TRACK. 

REF. optical STEi.LAR PtANFT ANC SClAR TRACKING SENSING DEVICES BY 
THE BENDIX CORP, NAVIGATION AND CONTROL DIVISION. APRIL 1975. 



TABLE 4 

fcnuiPMeNT THERMAL REQUIREMENTS CATALOGUE PAGE 18 

GUrOANCE NAVIGATION AND CONTROL SU8STSTEM 
equipment ITEM STAR TRACKERS 


PPF. OPSCPIPTION ANO 

NO. manufacture 


th'=:rhal power 

C‘SIGN WATTS 
GROUND/ MIN/ 
nP^ITAL MAX 


MISSION PHASE THERMAL REQUIREMENTS AND TEMPERATURE LIMITS 
DEGREES KEtl/lN / (FAHRENHEIT) - HIN / MAX 
PRELAUNCH SHUTTLE MANEUVERS REENTRY 

CARRY SHUTTLE TUG PAVLOAO AND 

TUG 0R9ITAL TUG LANDING 


REMARKS 


ST 1 
ST 2 
S7 3 
ST 4 
ST 5 
ST 6 
ST 7 
ST 8 


CT-401 SENSOR 
33RC 


STAR TRACKER 
HONEYWELL 

MHOS 

ITT GILFILLAN 

569B star tracker 
EMR PHOTO«^l£CTPIC 

574 STAR camera 
EHP PHOTOELECTRIC 

OAO STAR tracker 
PENOIX corporation 

OHA ATM STAR TPKF. 
BENOIX CORPORATION 

KS-199 STAR TRKR 
KOLLSMAM TNSTR. 
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243/333 
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288/323 

268/323 
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288/323 

CHECKOUT 





( 66/122) 

( 60/122) 

( 60/122) 
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( 69/122) 

( 60/122) 
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218/348 

21 8/348 

218/346 

218/113 

218/318 

218/340 

CHECKOUT’ 





(-67/16/) 

( -6 7/167) 

(-67/167) 

( 68/113) 

(-67/113) 

(-67/167) 
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OFF 
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INT 

OFF 
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FOR 

PASSIVE 
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218/3^3 

218/343 

218/ 343 

213/104 

216/313 

21 6/343 

CHECKOUT 





(-67/158) 

(-67/158) 

(-67/158) 

( 68/104) 

( -67/104) 

(-67/1581 
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ON DURING 
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FOR 

PASSIVE 
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236/327 

238/327 

236/310 

238/100 

238/310 

238/327 

CHECKOUT 





( -30/130) 

( -30/130) 

(-30/100) 

( 68/100) 

(-30/100 ) 

{-3C/130> 
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233/327 
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233/327 

CHECKOUT 
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(-40/ 90) 

(-40/130) 
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PASS TVE 

16 

272/310 

272/310 
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CHECKOUT 
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( 68/ 70) 

( 3 0/100) 
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The mlnitnum and maximum power levels correspond to the tempera 
tures associated with the variable power and temperature data 
derived from card 19 » The temperature data listed under each 
mission phase Is derived from the design operating case tempera- 
ture and non-operating and storage case temperature data derived 
from cards 8 and 9 depending upon whether or not the component is 
on or off respectively* 

2,6 Char Subroutine 

Subroutine CHAR is used in building the equipment 
physical characteristics and constraints catalogue, a sample of 
this catalogue is shown in Table 3, The program builds a table 
on all the components in which the following variables are 
included: component i, its manufacturer and Remarks, weight, 

package shape, surface area, volume, case solar absorb tlvity and 
emissivity, minimum and maximum power. The unit power density 
in watts per unit area (M^ and £t^) and time constant in hours for 
maximum and minimum power are calculated. The adiabatic rise 
rate minimum and maximum in degrees K/hr (°F/hr) are also presented 
The unit thermal mass in W-hr/K (BTU/F) and the allowable sink 

temperature for both design and qual maximum and minimum and the 
operation mode are presented. 

The Char subroutine uses subroutine Convrt, Sink and Timcon 
to perform some of the calculations, CONVRT subroutine is used to 
convert degrees Fahrenheit to degrees Kelvin, SINK subroutine 



TABLE 5 

EOUIP^'ENT Ph¥SICau CHARACTERISTICS AND CONSTRAINTS CATALOGUE PAGE 20 

GUIDANCE NAVIGATION AND CONTROc SU0SYSTEH 
EQUIPMENT ITEM STAR TRACKERS 


REF« DESCRIPTION HEIGHT PACKAGE SURFACE VOcUME RAO. PUNER POKER TIME ADIABATIC THERMAL AllOHABuE SINK OPERATION 

NO. MANUFACTURER AND KG SHAPF AREA CUBIC ALPHA/ KATTS DENSITY CONST. RISE RATE MASS TEMP. DEG K/(F) MODE 
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(FT) (H/FT2) MAX HIN MAX 


6 OAO STAR TRACKER 7.3 RECT 

2877 - 9832 

.70/ 

6/ 20/ 20 

l.OQ 

1 

1 

5.3 

236 

307 

236 

307 

BENDIX CORPORATION? 18 , 0) 

(3.1) ( .35) 

.85 

& < 1/ 1) 

1.0 0 

2 

2 

2.6 

-33 

93 

-33 

93 

THE OAO-IV STRAPOOWN STAR TRACKER HAS A PASSIVE 

thermal CONTROi. 







HEAT IS REJECTED BY CONDUCTION 

TO A RADTATION shield 

HAVING A PER- 









MISSI0LF TEMPEFATURE EXCURSION 

OF -29 TO 38 OEG. 

C?-20 

TO 100 DEG 









F), NO heaters are REQUIRED WITHIN THIS RANGE. 

UNIT 

IS HARO 









MOUNTED TO VEHICLE MOUNTING Fc 

AN3E. UNIT REQUIRE 

CcEAR unobstract- 









ED VIEW TO operate PROPERLY 












7 OMA ATM STAR TRKP. 13.1 RECT 

11211 77677 

.25/ 

18/ 16/ 25 

. 62 

1 

2 

12.9 

236 

332 . 

247 

30? 

3EN0IX COPPORATION (4?) . C) 

(12. U (2,74) 

.90 

26 ( 1/ 2) 

.61 

2 

4 

6.8 

-30 

84 

•-14 

84 


THE OMA ATM STAR TRACKER IS A GIMBALLED UNIT. THE ABOVE CIHENSIONS 
ARE EXTERIOR LIMITS SEE REF FOR MORE' DETAIL DESCRIPTION, UNIT IS 
MARRIEO TO AfK STAR TRACKER ELECTRONICS UNIT. UNIT HAS 3 INTERNAL 
HEATERS OF 10 WATTS EACH TWO OF THE HEATERS HAVE SET POINTS OF -23 
,3 TO -15.0 (-C.R tD 5.0 OEG.F) AND THE THIRD HEATER HAS' SET POIN 
OP -15.3 TO -6.7 DEG C (5.5 TO 22.5 CEG.F). UNIT IS THERMALLY ISO 
LATEQ, PAIHTEO WHlTE^ AND HAS A SUPERINSULA TI ON BLANKET COVERING. 

ST 8 KS-199 STAR TRKF 9,1 RECT 48^*2 22164 .20/ 8/ 17/ 38 .43 3 6 3, 0 247 290 226 , 3G 7 

KOLL^MAN INSTP, (20.0 ( 5,2) < , 78) .75 18 ( 1/ 3) .42 5 11 1.6 -14 62 -51 93 

the KS-199 STAR TRACKER WAS BUILT FOR THE MOL PROGRAM. ONE ENGINE* 

ERING MOCEL WAS BUlL T AND FUNCTIONAL TESTED. THE GIMBAL SENSOR IS 

cnuPLEH TO AN Electronic unit, the tracker has internal heaters 

totaling 10 WATTS AND ARE SUED FOR FAST WARM UF WHEN UNIT IS BELOW 
-11.8 DEG C<10 DEG. F), THE UNIT THERMAL DESIGN IS PASSIVE WITH 
UNIT THERMALLY ISOLATED FROM MOUNTING^ AND COVERED BY SUPFR-INSULA 

TiON Blanket to maintain proper operating temperature. 


INT 


INT 


INT 
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calculates component allowable sink temperatures for both the 
design and qual base temperature levels using minimum and maxi- 
mum temperature and power values. If the sink calculation deter- 
mines that 100% of the dissipated heat cannot be radiated at the 
design and qual maximum case temperatures, a message is printed 
indicating the quantity of heat which must be conducted way at 
the above temperature levels assuming an absolute zero temperature 
radiation sink environment. TIMCON subroutine calculates the com- 
ponent time constant in hours using both minimum and maximum power 
values. The time constant is defined as the time required to 
achieve 67 percent of the delta temperature defined by the design 
operating temperature from room ambient temperature. 

2.7 Control Cards and Deck Setup 

The Data Bank Program was developed on the CDC 6500 
SCOPE 3.4 system and was modified for use on the 1108 EXEC 8, 

1108 Input Instructions System 

Figure 2 presents the deck setup required for running on the 
1108 system. The deck as delivered is complete except for the 
first card shown a run card, and a charge card. The remainder 
of the deck was setup per Figure 2. Appendix 2 contains a list- 
ing of the control cards and Fortran IV program. Bbrther, input 
instructions may be obtained by contacting the appropriate com- 
puter lab personnel at MSFC. 



OPTIOKS card 
















OPTIONS card 







CPC 6500 Input Instructions 


Figure 3 presents the deck setup for running on the SCOPE 
3.4 operating system. Note: the data bank data is loaded on 

Tape 11 prior to execution requiring GOPYBR control card. The 
options card is loaded after the last subroutine. The cards 
are end of record cards, 7“8“'9 in Column 1 and the P card is 
the end-of-file card, 6-7-8-9 in Column 1. The CDC 6500 requires 
40000 Q cells of core to run in and approximately 90 decimals 

O 

seconds of time to execute the 4 basic subroutines. 



Section 3«Q Program Modification 


3*1 Addition of New Components to Components List 

The There q and Char subroutines have identifies I com- 
ponents listing, therefore, whatever is modified in one has to 
be duplicated in the other routine. The components listed are in 
the form of statements and formats statements that start with 
Format statement number 1010 and ends in Format statement number 
1048* Note all new components will have to have format statements 
ntjmbers larger than 1048 and be placed after statement 1048, 

To add new components to the program list the following 
steps should be followed: (see Appendix II program listing for 

reference) , 

1) Write format statement 1049 or higher similar to the 
other components format statements, e*g, 1049 FORMAT (41X, 
^EQUIPMENT ITEM XXXXX etc through column 72 ' ) * 

2) Locate the following card in the program "WRITE (6, 1003) 
DATA(I), 1=1, 7". Go down the list of IF statement cards 

that follows the above write card. 

3) Punch and place at this location the new IF statement 

card that identified the new component, e.g. "IF (IEQUIP.EQ.4H 
XXXX) G0 TO 49" Note: XXXX can be from one to four letters 

identifying the new component i. 



4) Punch the new write statement card that is called 

by the above IF statement (statement 49) and place it after the 
last previous write statement in the program (statement 48) 
e,g, 49 write (6, 1049) etc, 

5) Add a "GO TO 100" card prior to the new write statement, 

r 

In addition to the above procedure, locate the title page 
of the subsystem of the new component and add the appropriate 
information in this area. Note: the subsystem title page is 

simply printed as is and has no program modifications require- 

0 

ments. 


REFERENCES 


1. T. L. Ward, "Space Tug Thermal Control Equipment Thermal 
Requirements Characteristics and Constraints Catalogue." 
MCR-74-145, Martin Marietta Corporation, April 1974. 
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Listing of Components & Corresponding Identifier 


Inertial Measurement Units 

IMU 

STAR Tracker 

ST 

STAR Tracker Electronics 

STE 

Horizon Scanner 

HS 

Horizon Scanner Electronics 

HSE 

Laser Rader 

LR 

Laser Rader Electronics 

LRE 

Television 

TV 

ACS Electronics 

ACSE 

Autocollimator 

AUTO 

Computers 

COMP 

Tape Recorders 

TR 

Data Acquisition Unit 

DAU 

Telemetry Forma tors 

TF 

Data Bus Controllers 

DEC 

Transponder PM 

TPM 

Transmitter FM 

TFM 

Power Amplifiers 

PA 

Hybrid Junction 

HJ 

RF Multiplexer 

KFM 



APPENDIX I (Continued) 


Filters 

F 

Decoder 

DEC 

Modulation Processors 

MP 

Omni Antennas 

OA 

Pressure Transducers 

PRES 

Temperature Transducers 

TEMP 

Position Indicators 

POS 

Voltage Measurements 

VOLT 

Current Measurements 

CURR 

Flow Measurements 

FLOW 

Liquid Level Measurements 

LLEV 

Discrete Measurements 

DISC 

Fuel Cell Power System 

FC 

Batteries 

BAT 

Power Distribution Units 

PDU 

Power Conversion Units 

PC 

Sun Sensor 

SS 

Rate Gyros 

RS 
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»Ai>6»T 11 9 F^///^bO 
'•aS>GvT 1^9F^///^bO 
»A5>G9T 13*F2///^50 
»F0R,IS DATABfOATArf 

This phogmam contains the wfcfssary logic to satisfy the 
iiPACE tug Thermal control study 
NaS 8-2R670 

Cataloging reouiremfnTs. thf data containlo in thf data 
HANK defines those EOUipmfnT ITEMS cONSIOEWFD APPLICABLE 
TO THE SPACE' TUG. THE SPEriFIC OATa CONTAfNEU HEREIN DEFINES 

1) EQUIPMENT THERMAL REOUIRLMENTS 
it) EQUIPMENT PHYSICAL CHARACTERISTICS 

equipment constraints 

BY OEEINIUON All equipment items are considered to be 
functionally compatible with subsystem REQUtRtMENTS. 


COMMON/BLANK/ IPAGE 

dimension OATA(l«i) 
dimension DATaI (2U) 
rewind 11 

10 READ(5f lifENU=2a)DATAl 

11 FQRMAT(20aA) 
WRITEdltlDDATAl 
GO TO 10 

20 end FILE 11 

rewind n 

lOUl F0RMAT(5U69<^X) ) 

ipage=i 
Call page 

READ The options CARD 



READ( 59 1001 ) IRAW* IFINAL* 

ITHPOt ICHAR 



IF ( IRAW.EQ. 3 HRAW) 

60 

To 

100 

1 

IF(IFINAL.EQ*SHFINal) 

GO 

To 

200 

2 

IF (Uhrq-eq.ghtheReq) 

GO 

To 

300 

3 

IF ( ichar*fq*ahchar) 

GO 

To 

400 


GO To 1000 

Auo Call raw 
GO To I 

^00 CALL FINAL 
GO To 2 

300 CALL THEREO 
60 TO 3 

Aoo Call char 
lyoo continue 
Call exit 
END 
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»»FOR,lS PAGF*PAGE 

SUBHOUTINE PAGE 

This suawouTiNE upoaIes the page numbers for the data bank for 
OUTPUT OF RAii^ and FINai. 

COMMON/BLANK/ IPAGE 
DIMENSION data (12) 

C 

1001 FuRMATCAl *AS* 11 A6) 

1002 FORMAT (Al«Ab»10A6* «GE* 14) 

C 

JsO 

rewind 11 
REWIND 12 

1 HEAD(U«lO0l*eND=l000) I* 0ATA(U» (DATA (K) *K=2, 12) 

IF (I.EQ.lHl ) GO TO 3 

WRlTE(12*100i) If UaTA( 1)» (DATA (K) *K=2f 12) 

GO TO 1 

3 Jsj^l 

IF(J,GT.2) go To 4 

WRITEC 12» lOOi ) I* DATA(l)f (OftTA (K) *K=2» 12) 

GO TO 1 

4 I PAGES I PAGE + 1 

WKITE( 12*i002) If OATA(l)* (DAT A (K ) »Kspf U ) f IpAGE 
GO TO 1 
lUOQ continue 
return 

END 
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MpOR^lS RAWfRAW 

SUHROUTINE RAW 

c This subroutine writes The uata rank to output in a haw form 

DIMENSION DATa(12) 

c 

lOOl FuRMAT(12A6) 

c 

REWIND 

1 READ a2»l00l *E nO«AOOO) (UATA m * 1 = 1 » 1^) 

WRITE(6f 1001) (DATa(I) *I=1»12) 

60 To 1 
lOoo Continue 
return 

END 



o o o 
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••F0H*IS FINAL^FInAL 

subkoutine final 

JHIS iUBROUTlNF CONVtftTS THE PAW pATA ON TAPE 12 To Si UNITS AND 

DIMENSION 0AlA<l2) ' 

C 

1001 FORMAT112A6) 

1003 F0RMAT(7A6«» FINAL OATA*7x*2A6) 

lOOA FORMAT(lA*ftA«>*3X*F5,0*3X»F5*0) ^ „ 

1005 FOPMAT(lX*aAb*2X.FSoO,» ro*F5,0*« OEG. K * /bOX M < » F S . U * • TO*F5.0* 

I • DEG. F) • ) 

1006 Format ax*3Ao*bx*-iA6) 

1007 F0RMAT(3A»AAb*F6.i*«X,F6*l»9X*F6*l) 

1008 FORMAT (3X*4AG«F6« 1 98H ♦ wIDTH»F 6. 1 *9H » HEIGHT«F6. 1 t • CENTIMETERS 
1/21X* •LENGTH*F6, 1 *8H * Wl nTH*F6. 1 ♦ HE IGHT « Fb. 1 • ® INCHES*) 

1009 F0RMAT(6X.tpACKAGt A«E A • 7X * F7. 1 * * SO. CENTIMETERS MH**F8,lf 

P SQ. INCHES*/6X» ‘package VOLUME • 5X *F 7 , I f • CUo CENTIMETERS *1H»* 
2F8.P* CU. INCHES’) 

1010 F0RMAT{3A6*9X9F6.I) 

1011 FORMAT (3A6*9X*F6« A * * KILOGRAMS *1H**F7.1P POUNDS*) 
lUl? format ( 2 (GX«Fb« I * JX.F5.0 ) ) 

1013 Format (6X9FS.1 * • at»fs.o** oeg* at*F5«o*» deg (Watts at d 

1EG« KELVIN) */bX»Fb.l* * AT*Fb,0»* DEG* »F5,1P AT*)=5.0t» DEG {WATT 
2S AT DE6« FAHRENHEIT)*) 

C 

PI«3« lAl5926b36 
REWIND 12 

1 REAU( l2*iOOl»END*AOOO> (DATA ( I )* 1 = 1 * 12) 

IFLAG=0 

IF (DATA (2) .ED, 6H SP) 60 To 100 

WHITE (6t)l00l) <OATa ( I ) * I«1 * 12) 

GO TO 1 

100 CONTINUE 

WHITE (6*1003) (OAIa(I) *1*1*7) , ( OAT A ( I ) * 1 = H * 1 2 ) 

00 101 J»l*6 

READ(12*1001) (DATA{I) *1*1*12) 

WHITE(6*1001) {()ATA(I) *1 = 1*12) 

101 CONTINUE 

IF (DATA ( 1 ) *EUo6H FC -OR . DAT A ( 1 ) , EQ *6H BAT)IFLAG=1 

00 102 J=l*4 

REAO(12*1004) (i)ATA(I) *1 = 1*8) * TC* Th 
CALL CONVRT ( TC* TH * TCK * THK ) 

WRITE(6*100b) (DA) A{ I) * r»l*6) * TCK* Thk* TC* Th 

102 continue 

HEAD(12*1006) (OATA(I) *1=1*3) * (OATA(I) *1=4*6) 

IFtOATA (4) *EU«6HHtCTAN) IPACK=1 

IF(0ATA (4) .EO.6HCYLIN0) IPACk=2 

IF (DATA (4) ,EW«6HSPHERI ) IPACk=3 

WHITE(6*1006) (OATa(I) *1=1*6) 

WEAD(12*1007) <DATA(I) *1=1*4) , XL* W* H 

XLC=Xl’’2,5A 

WC=w«2.54 

HC=H*2«54 

WRITE (6* 1008) (DA ( A ( 1) * 1 = 1 * 4 ) , XLC* WC* HC» )^L* W* H 
IF(IPACK“2) 103*1<14*I05 

103 AC=2.» (HC« (XlC*WC) ♦WC*XLC) 

A = 2^*{H«<XL*-W).*W«XL) 

vc»xlc*wc*hc 

V=XL«W*H 
GO TO 110 

104 AC=2e»PI* (WC'®<»2-«>WC«XLC) 
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VCs=PI«XLC<>WC**2 
(30 TO 110 

A05 AC=:<^.*PIOwc■»*^ 

VCs4*/3.«PI*wC«*3 

V=4,/3.*Pi*w«*3 

110 continue 

WHITE (6* 1009) AC* A* VC* V 
HEAD( l^*l()01) (OATA(I) *I»1 *12) 
wHnE(6*lU0D {0A1A{I)*I = 1*12) 

111 J=1*2 

READ(12*i010) (DATA (I) *1=1 *3) * W 
WK=W«*45359237 

WHITE(6*1011) (OATa(I) fl=l«3) ♦ Wk* W 

111 Continue 

DO 112 J=l*2 

HtAO( 12*1001) (OATa (I) *1*1*12) 

WHlTE(6*l00i) (DATA(I) *1=1*12) 

112 continue 

IE< IFtAG.eo.O) GO TO 114 
read (12* 1001 ) (DATA n )* 1 = 1 * 12) 

WHITE (6*1001) (DATA( I) *1=1*12) 

60 TO 113 

114 HEAD(12*1o12) pc* TC* PH* TH 

IE(PC,LT, ,1) GO To 113 

CALL CONVPT (TC*TH*TCK*THk) 

«HITE(6*l0J3) PC* TCK* PM» THK* PC* TC* PH* TH 

113 READ(12*100D (DATA (I) *1 = 1*12) 

* IF (OATA(l) .E0.6H EnO**) 60 To 1 

WHITE(6*100D (DATA(I) *1 = 1*12) 

GO TO 113 

luoo continue 

KETUHN 

END 
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«FOK,iS THEREQ^THtHEQ 

SubKOUTINE THEReu 
COMMOM/BLANK/ iPAGf 
dimension oaTAUH) f EQDipO)^ MANDF(3)« REMaRKIB) 
c 

^99 Format { XHi ^// //////////// //////// 
lb3X**SPACE TUG TMtRMAl. COmTHOI *// 

2^bXj ’EQUIPMENT THERMAL REOUIRFMENTS CATALOGUE’// 

359X? ’PREPARED FOR*// 

443X» ’NATIONAL AERUnAUTICS aND SPACE ADmI NSTRAT TON ♦ // 

5blx * ’marshall space FLIGHT CENTER’// 

6b3X*’UNDEK CONTRACT NAS b-?967o ♦ //64X 9 * BY • // 

7blX9*MARTlN HARlEfTA CORPORAT T0N»//5«X, » DENVER DIVISION’) 

1900 FORMAT ( IHl 933 a* ’GLOSSARY FOR FOUIPMENT THERMAL REQUIREMENTS CATALO 
16UE’/////////10X» ’ YES pertains TO THE REOUIHEmENTS OF UNIT TO BE 
ION DURING these PERIODS OF FLIGHT* ’//lOX 9 » INT PERTAINS To THE PEO 
IUIREMENTS of unit TO RE ON INTERMITTENTLY DURING 1 HESE PERIODS OF 
IFLIGHT* ’//iOA * » thermal OtSIGN GROUND ACTIVE ACTIVE COOLING FOR OR 
lOUND OPERATION ME«NS A REOUIRFMENT FOR FORCED CON V£CT I ON* • ) 

998 Format { 2A6) 
lUOl FORMAT(Il) 

1002 format ( 7X*7Ab) 

1004 F0RMAT(2X*A4«I39lX,3A6*2X,3A6) 

1005 FoRMATUm 1*40X* ’EQUIPMENT THERMAL REQUIREMENTS CA T ALOGUE ’ 30X ♦ 
l’PAGE’I4»/) 

1003 Format (41x97A6«/) 

1010 FORMAT(1H-96H-»<mK>««9A49I3*« IS NOT A DEFINED EQUIPMENT ITEM®) 

1011 Format ( 4ix* ’EQUIPMENT itlm inertial measurement units*) 

1012 F0RMAT(41A9 ’EQUIPMENT ITEM STAR TRACKERS’) 

1013 FORMAT (41X, ’EQUIPMENT ITEM STAR TRACKER ELECTRONICS’) 

lou format ( 4ix* ’E quipment item horizon scanners’) 

1015 format(41x, ’Equipment item horizon scanner electronics* ) 

1016 FORMAT {4iXg ’E quipment item laser radars*) 

1017 F0HMAT(41X9’EQUIPmEnT item LASER RADAR ELECTRONICS’) 

1018 Format ( 4 ix, ’E quipment item tflfvisionm 

1019 format (41X, ’EQUIPMENT ITLM ACS ELECTRONICS’) 

1020 FORMAT {4ix, ’E quipment item autocollimators* ) 

1021 Format (41X, ’Equipment item computers*) 

1022 format ( 4ix* ’E quipment item tape recorders*) 

2023 format ( 4lX* ’EQUIPMENT JTEm DATA ACQUISITION UNITS*) 

1024 F0RMAT{4ix* ’E quipment item telemetry formators*) 

1025 FoRMAT(4ix9 ’Equipment item data bus controllers*) 

1026 format (41X, ’Equipment item tpansponders« pm*) 

IU27 FuRMAT{4iX9 ’Equipment item transmitters’ fm*) 

1028 Format (41X* ’Equipment item power amplifiers*) 

1629 format ( 4ix* ’E quipment item hybrid junctions*) 

1030 format ( 41x9 ’Equipment item rf multiplexers*) 

1031 Format (41X* ’Equipment item filters*) 

1032 format (41X* ’Equipment item decoder*) 

1033 Format (41X* • Equipment item modulation processersm 

1034 Format ( 41x9 ’Equipment item omni antennas*) 

1035 format ( 41x9 ’Equipment item ppfssure transducers* ) 

1036 Format (41X9 ’Equipment item temperature transducers*) 

1037 Format ( 41x9 ’EQUIPMENT item position Indicators*) 

1038 format (41X, ’Equipment item voltage measurements*) 

1039 Format (41X, ’Equipment item current measurements*) 

1040 format ( 41x9 ’Equipment item flow mfasurements* > 

1041 format (41X, ®E(JUIPMEnT ITEm ltc^utd level measurements*) 

1042 Format (41X9 ’EQUIPMENT item discrete measurements*) 

1043 Format (41X9 ’EQUIPMENT item fuel cell power systems*) 

1U44 Format (41X* ’EQUIPMENT item batteries*) 

1045 Format ( 4ix, ’E quipment item power distributation units*) 
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1^46 FURMAT(41X* •e.quip^ent item powfr convfrsjon SySTEmSM 
F0RMAT<4lX*»t0UlPMFMr ITtM SUM SFNSOP*) 

1048 Format ( 4iXf »touiPHFJsjT itfm ratf gyros*) 

HOI FURMATUHOs 1^/( *-» ) »/3X* »RFF, DESCRIPTION ANU THERMAL POWER 

1 MISSION phase thermal RFQUIPFMFNTS and temperature llMlTS*l?Xf 

2 •KEmARKS»/**X, *N0. manufacture DEi>lGN fc«TTS [) 

3E6REES KELVIN / (FAHRENHEIT) - MIN / MAX*/ 

427X»t6R0UND/ MIN/ PRElAUNCH SHUTTlF MANEUVERS * 1 3X » 

5 »REENTRY»/27X**oRfiITAL MAX * I 7X • » CARRY SHUfTLE TUG 
6PAYL0A0 AND*/P/X* • TUG ORRTTAL TUG LANDING**/ 

7 1X9127(9-*),/) 

H02 F0RMAT(52X9Fbs094X,F5.0) 

11U3 format (32x,F6,1 ) 

1104 F0RMAT(5X,F6.1*13X,f6,i ) 

1105 format ( 3XX9AG*A1 •PX»A6fAl ) 

1106 format (40x, aJ* 9X*A3* lOX* A3) 

1107 format (3GX,AJ*12X*A3* I OX* A3) 

1108 F0RMAT(A6) 

1109 format ( lX9A4*I?9lX,3A6 9lXtA6*Al*2Xf 13* •/•f6{TX,A3) * 4X *4 a6 * /8X * 3 A6 , 

1 1X*A6*AI*2X*I3*3X,6(3X*I3* */* 13) *2X*4a6*/44X*6 ( * (♦I3,»/*I3,*)*1X) 


rewind 12 

IPAGE®! 

JE0UIP»4H 

WRITE(6*999) 

WHITE(6*1900) 

1 READ ( 12»998*Eno=1000) (DATA ( I ) • I=X ,2) 

IF (DATA(2) ,E0.6H SP) 60 To 2 

60 To 1 


2 DO 3 jsl*3 
«EAD(12,1001) lOUM 

3 CONTINUE 

READ(12*1002> (OATa(I) *1=197) 

R£AOU2*1o02> DUM 

read ( 12* 1004) lEQUipt NO* (E0UIP( I ) * 1 = 1 *3) f 
IFdEQUIP.EQ.JEQUlp) 60 iQ lOO 

JEOUIpalEQUiP 
ILINE®60 


ipage=ipagf^i 

WRITE (6* 1005) IPAGe 
wRnE(6*l003> (DArA( I ) *1 = 1 ,7) 
IF(IEQUIP*E0,4H IMU) 
IF(IFQUIP.FQ*4H ST) 

IF (IEQUIP.EQ*4H STe) 

IF aE0UIP,F0*4H HS) 

IF { lE0UIP.F(i*4H HSe) 
IF(iEQUIP.E0*4H LR) 

IF ( ZEQUrP*EO«AH LR£) 

IF ( IE0UIP«eQ«4H TV) 

IF ( IEQUIP«EQ,4haCSF) 

IF ( IEQUIP,EQ®4HAUI0) 
IF(IEQUIP.E0«4HC0Mp) 

IF { 1EQUIP,EQ»4H TR) 
IFnE0UIP,EQo4H DAU) 

IF (IEQUIP.F0.4H IF) 

IF ( IE0UIP,F0*4h OBC) 

IF UE0UIP.EQ*4H TPm) 
IF(IEQUIP.EQ.4H TFm) 
IF(IE<3UIP,FQ«4H PA) 
IFaEQUIP,FQc4H Hj) 

IF (IE0UIP,F0#4H HFm) 


GO To 21 
GO To 12 
60 To 13 
60 To 14 
GO To 15 
GO To 16 
60 To 17 
60 To 18 
GO To 19 
GO To 20 
GO To 21 
GO To 22 
GO To 23 
60 To 24 
60 To 25 
GO To 26 
GO To 27 
60 To 28 
GO To 29 
GO To 30 


(MANUF(J) *j=1,3) 



IF(IE00IP.EQ*4H F) 

60 

To 

31 

IF aEOUIP«EQ*^H DEC) 

GO 

TO 

32 

IF(IE0UIPoEQ*4H MP) 

GO 

To 

33 

IF aEQUIP*EQ*^H Oa) 

GO 

TO 

34 

IF<I£0UIP,EQ*4HPRES) 

GO 

TO 

35 

IFnEOUIP,EQ*^HTEMP) 

GO 

To 

36 

IFaE0UIP.E0*4H POS) 

GO 

TO 

37 

IF(IEQUIP,EQ*4HV0LT> 

GO 

TO 

36 

IF (IEQUIP,FQ*4HCURR) 

GO 

TO 

39 

IF<I£QU!P.EQ*4HFL0W) 

60 

To 

40 

IFUEQUIP.FQ*4HLtEV) 

GO 

To 

41 

IF (IEQUIP.EQ*4H0ISc> 

GO 

To 

42 

IF(IEQUIP,EQ.4H FC) 

GO 

To 

43 

IFUE0UIP*EQ*4M BAT) 

60 

To 

44 

IFUEQUIP*EQ*4H PDU) 

GO 

To 

45 

1F(IE0U1P.EQ*4H RC) 

60 

To 

46 

IF(IEQUIP.EQ*4H SS) 

60 

To 

47 

IFUEQUIP.EQ*4H W6) 

GO 

To 

48 

•rfPITE (6« 1010) lEGUlP# NO 




CALL EXIT 





11 WRITE(6*lOlD 
GO TO 100 

12 «<RITE(6*1012) 
60 TO 100 

13 i<RITE<6*m3) 
60 TO 100 

14 «nfRlTE(G»l014) 
60 TO 100 

15 WRlTE(6f 1015) 
60 TO 100 

16 WRITE(6*1016) 
GO TO 100 

17 WRITE(6«1017> 
60 TO 100 

16 MRXTE (6« 1016) 
60 TO 100 

19 WRITE(6*1019> 
GO TO 100 

20 t<RITE(6*l020> 
60 TO 100 

21 WRITE(6»1021) 
60 TO 100 

22 wRITE(6*1022> 
60 TO 100 

23 WRITE(6»1023) 
GO TO 100 

24 w/RITE(6«1024) 
60 TO 100 

25 WRlTE(6el025) 
60 TO 100 

26 WRXTE<6*1026) 
60 TO 100 

2? WRITE(6#X027) 
60 TO 100 

28 feJRnE(69l028) 
GO TO 100 

29 fe«RITE{69l029) 
60 TO 100 

30 ^RITE(69i030) 
60 TO lOO 

31 ^R|TE(69i03i) 
60 TO 100 
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32 ^J<ITE(6*1032) 

60 TO lOU 

33 WRITE (6*i033J 
GO TO 100 

34 (6U034) 

GO TO 100 

35 WRITE(6« 103S) 

GO TO 100 

36 ssfHlTE (6»1036) 

GO To 100 

37 rtHlTE{6*l037) 

GO TO 100 

38 WKlTe<6*i03«) 

60 TO 100 

39 WR1TE(6» 1039) 

GO TO 100 

40 WRITE(6»i040) 

GO TO 100 

41 WHITE16»1041) 

GO TO 100 

42 WHITE(6«1042) 

60 TO 100 

43 )«RITE (6« 1043) 

GO TO 100 

44 WHITE (6f 1044) 

60 TO 100 

45 wHITE(6»1045) 

GO TO 100 

46 WHITE(6*1046) 

60 TO 100 

47 WRITE(6*1047) 

GO TO 100 

48 wRITE(6*1048) 

100 continue 

IE ( lLINE,LT*i>6) gO To 109 

W«ITE{6oll0l) 

IL1NE=15 

109 REAO(12*U02) OOCTC* OOCTH 
HEA0(l2*n02) SCTC« SCTH 
Do 110 Isl»8 
HEAU(12*1001) lOUM 

110 continue 

HEADU2*1103) SSP 
HEADU2W104) CPC, CPH 
HEA0U2U103) OP 

HEADa2*llOS) ITDG,iTDGl* ITDO, TTDOI 
DO in 1 = 1,2 
HEAD ( 12^ lOOi ) lOOM 

111 CONTINUE 

KEAD(12,1106) IPHE, ICAH, IRFE 
HEAD(12,1107) 1ST* iTO* IPT 
DO 112 1=1, SO 
HEADn2,ll0d) IENU 

IF{ IEN0s£0,6rt end**) gO To 120 

112 continue 
120 continue 

IF ( IPRE,EQ,3HyES* A nd, ICAH*EQ,3hOFE) go to 113 

lF<IPRE,EO,3HYES.ANn.ICAH.EQ.3HYEG) GO TO 114 

IF(lftEE,EQ.3HYES) gO TO 115 

113 HENARK( 1)=6H0N dUH 
remark ( 2) =6MlN6 PH 
ReMARK(3)=6HELAUNC 
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KtMAHK (4) «6HH for 
remark (5) «6HCHECKU 

REMARK (6) -6HUT 
remark (7) =6H 
REMARK (B) =6H 
60 TO 116 

U4 remark (1 )=6H0N pRi 
remark (2) s=6H0R TO 

remark < 3)»6HLAUNCrt f 

HEMARK(4)=FH FOR 
remark ( 5) =6HtHECK0 

remark (6) s6HUT and 
REMARK{7)«6H STAB 
remark ( 8) sfeH 
60 TO 116 

U5 remark (1)=6H0n for 
REMARK(2)=6H MISSI 
remark <3)=6H0N or 
REMARK (4)s6H 

remark (5)s6HTHERMA 
remark (6) »6HL CONT 
remark (7) =6HH0L PO 
remark ( 8 ) »6HRP0SEi» 
il6 CONTINUE 

IQMINk SSP4- CPC-» op 
IQMAXs SSP ♦ CPH - OP 
OOCTCks <5o/9* ) «(D0CTC4459,67) 
D0CTHK*<5^/9®)«(0UCTH^459,67> 

SCTCK*(Se/9«)*{ SCTC^4S9.67) 

SCThk«(5./9*)*( SCTH*459.67) 

IF (IPRE*EQ,3HYES) 60 To 126 

iCPREKaSCTCK 

iHPREKaSClHK 

iCPREFsSCTC 

IHPR£F=SCTh 

121 IF ( ICAR.tU®3MYES) 60 To 127 

lCCARK=SCrCK 

iHCARKaSCTHK 

iCCARFsSCrC 

IHCARFssSCTH 

122 IF{IST,E0«3H ON) GO To 128 

IF ( IST.E0.3H1NT) GO To 132 

ICSTK=SCTCk 

iHSTKaSCTHK 
' ICSTFsSCTC 
IhSTF=SC1h 

123 lF(IT0oEQo3H ON) GO To 129 

lFnT0«E(J*3HlNT) GO To 133 

ictok=sctck 

Ihtok=scThk 

lCTOF:rSCTC 

IhFOFsSCTh 

124 IF(1PT9Eu, 3H ON) GO To 130 

IF (IPT,FQ«3HlNT) GO To 134 

icptk=sctck 

IHPTKsSCThk 

iCPTFsSCTC 

IhPTFsSCTH 

125 IF { IRFE«E(i.3MYFS) GO To I3l 

ICREEK=SCTCK 

IHREEK^SCTHK 

ICR£EF«SCTC 
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iHREtFsSCTH 
60 To 140 
X26 ICPR£K=00CTCK 
IHPHEK=00CTHK 
lCPHEF=nOCTC 
IhPREF=DOCTH 
60 TO 121 
A27 ICCARK=00CTCK 

ihcark=docthk 

ICCARpsDOCTC 
lHCArtF=DOCTH 
GO TO 122 

128 ICSTKsDOCfCK 
IHSTKsDOCThk 
iCSTFsDOCrc 
iHSTFxDOClH 
6u TO 123 

129 ICTOKssDOCTCK 
iHTOKsOOCTHK 
iCTOFsOOCTC 
IHTOFsDOCTH 
60 TO 124 

130 ICPTK«00CTCK 

ihptk=oocthk 

ICPTF=00CTC 
IHPTFcOOCTH 
GO TO 125 

131 ICREEKsDOCTCK 
iHREEKaDOCTHK 
lCREEF=fDOCTC 
1HREEF»D0CTH 
60 To 140 

132 ICSTK*SCTCK 
IHSTKbOOCTHK 
ICSTFsSCTC 
IHSTFsOOCTH 
60 To 123 

133 ICTOKsSCTCK 
IHTOK^OOCTH 
IHTOFsDOCTh 
GO To 124 

134 ICPTk=SCTCK 
IHPTK=OOCThK 
ICPTFsSCTC 
IHPTF=00CTH 
GO TO 125 

140 continue 

WHITE{6»U09> IEOUip,nO* (EOUIP ( T ) , lal O) f ITD6, ITOGI » TOMIN* |PRE 
1 ICAR, IST^ ITO* IPT* IREF, ( RFMARk (I ) * I = 1 • 4 ) » 

2(rtANUF ( I) *1=1 *3) * ITOO, 1T001,IQMAX* ICPRE^* 'HP«tK* ICGARK* 

3 IHCARK* ICSTk, IHSTK, KTOK* IHTOK* ICPTK* IHpTK, ICReEK, IHRFFK 
4(REMARK (I ) *1=5*8) * ICPREF* IHPPFF* TCCaRF* IHCaRF* ICSTF* IHSTF* 

5 ICTOF* IhToF* ICHTF* IHPTF* ICRFtF* IhREEF 
ILINE=ILIne+3 

IF (ILINE *GT*56) jE0UlPt=4H 
GO TO 1 
1000 continue 

‘RETURN 

END 
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mF-UHsIS char*char 

SuBHQUTlNt char 
COMMON/BLANK/ IPAGF 

DIMENSION DATA(12) o EQUIPO), MANUF{3) 

c 

^^9 Format (Ihi «////////////////////// 
l53Xp95PACE TUG THERMAL CONTROL*// 

23SXc *E0UIPMENT physical CHARACTERISTICS AND CONSTRAINTS CATALOGUE* 
3//59X« ’PREPARED FOR*// 

443X9 9NATIOMAL AERONAUTIC^ AND SPACE ADmINSTRAI ION * // 

SiilX? ’MARSHALL space FLIGHT CENTER’// 

6S3X««UNDER contract NAS B-29670 * //64X * • BY ’ // 

7SiX9*MARTlN MARIETTA CORPORAT ION » //SBX DENVER DIVISION*) 

998 Format ( 2A6) 

1001 FORMAT(Ii) 

1002 FORMAT (7X»7A6) 

1004 F0RMAT(2X9A4*I3«1Xp3A692X93A6) 

1005 Format ( iHi 934x9 »euuipment physical characteristics and constraints 

1 CATAL0GUE*IBX9 «PA6E’I4*/) 

1901 Format <IHI *33X» ’GLOSSARY FOR EQUIPMENT PHYSICAL CHARACTERISTICS AN 
10 constraints catalogue* /////////10X» ’package shape rect rectangu 
iLARs’/ZlOX^’PACKAGE SHAPfc CYLI CYL I NORICAL • * // 1 0 X 9 • P ACKAGE SHAPE 
ISPHE sphere® ’ // i^X9 ’ALPHA SOL AR ASSOP8TI V I T Y . * //I OX 9 «EMISS SURF 
lACE EMISSIVITYo ’// iOX® *PQtVER nENSITY THE TOTAL DISSIPATED POWER P 
lER UNIT surface AREA*’//) 

1902 FORMAT ( 10X9 « TIME CONSTANT HOURS THF TIME REUUIREO TO ACHIEVE 67 P 
IRtCENT OF THE DELIA TEMPERATURE DEFINED BY THE DESIGN OPERATING*// 

1 10x9 « temperature less room ambient temperature, ’// lox * « adiabatic R 
USE Rate the temperature rise in one hour if all the heat dtssipa 
itel> is contained within The unit, «//10k» ’thermal mass the amount 
lOF energy required to raise a unit one degree in temperature* •//) 

1903 format UOX, 5 allowable sink temp, the equivalent vacuum chamber WA 
ILL temperature which WILL RESULT IN SPECEIFIED CASE TEMPER ATURE .* ) 

IU03 format ( 4IX97A69/) 

1010 F0RMAT(lH-,6H«»»«*»*A49l39’ IS NOT A DEFINED EQUIPMENT ITEM*) 

]01l FORMAT C41X, ’EQUIPMENT ITEM INERTIAL MEASUREMENT UNITS’) 

1012 FORMAT (41X, ’EQUIPMENT ITEM STAR TRACKERS’) 

1013 F0RMATC41X9 ’Equipment item star tracker electronics*) 
luu F0RMAT(4ix, ’E quipment item horizon scanners*) 

1015 format {41X9 ’Equipment item horizon scanner electmonics*) 

1016 format{41X9 'Equipment item laser radars’) 

1017 format (41X9 ’Equipment item laser radar electhonics* ) 

1018 format ( 4iX9*E0UlPMENT ITEM TELEVISION’) 

1019 FORMAT (41X9 ’EQUIPMENT ITEM ACS ELECTRONICS’) 

1020 FORMAT {41X9 ’EQUIPMENT ITEM AUTOCOLLI^ATORS • ) 

1021 fo«maT(41X9 ’Equipment item computers*) 

1022 format{41x9 ’Equipment item tape recorders®) 

1023 format(41x9 ’Equipment item data acquisition Units’) 

1024 FORMAT {4ix, ’E quipment item telemetry formatohs’) 

1025 F0RMAT(41X, ’EQUIPMENT ITEM DATA BUS CONTROLLERS’) 

1026 FORMAT {41XUEQUIPMEnT ITEm TRANSPONDERS® PM®) 

1027 FORMAT (4lX* ’EQUIPMENT ITEM TRANSMITTERS® FM») 

1028 format (41X* ’EQUIPMENT ITEM POWER AMPLIFIERS*) 

1029 Format ( 41x9 ’EQUIPMENT item hybrid junctions*) 

1030 format { 41X« ’EQUIPMENT IltM RF MULTIPLEXERS’) 

1031 FORMA r {41X9 ’EQUIPMENT ITEM FILTERS’) 

1032 FORMAT (41X* ’EQUIPMENT ITEM DECODER’) 

1033 format (41X9 »eouipment item MOOULATION PRoCESSeRS’) 

1034 FORMAT <41xq ’EQUIPMENT ITEm OMNI ANTENNAS*) 

1035 FORMAT (4ix* ’E quipment item pressure Transducers*) 

1036 format { 4lX, ’EQUIPMENT ITEM TEMPERATURE TRANSDUCERS’) 

1037 FORMAT {41X® ’EQUIPMENT ITEM POSITION InDICATOHS*) 
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1038 FURMAT(41X,«E0UIPHEKJT ITEM VOLTAGF MEASUREMENTS*) 

1039 FORMAT (4lX, <EQUIPMEWT ITEM CURRENT MEASUREMENTS*) 

1040 format ( 4iA, •E quipment item now measurements*) 

1041 format ( 4ix, *EOUIP menT ITEM LTOUID LEVEL MEASUREMENTS*) 

1U42 FORMAT (4iX, 9EUUIPMENT ITEM DISCRETE MEASUREMENTS*) 

1043 Format ( 4ix <, «equipment item fuel cell power systems*) 

1044 F0RMAT{41X, *EOUIPmenT ITEm BATTERIES*) 

1045 Format { 4ix » «eouipment item powfr distributation units*) 

1046 format < 4lx, bEoUIPMENT ITEM POWER CONVERSION SYSTtwS*) 

1047 format ( 4lx, *EQUIPM enT item sun sensor*) 

1048 FORMAT (4iX« *E0UIP«ENT ITEM RATE GYROS*) 

1101 FORMAT(lHt), 127( '-* > */3X**«EF, DESCRIPTION WEIGHT PACKAGE 

ISURFaCE volume RAO* POWER POWER TIME AUIaBATIC TheRmaL ALLOW 

2A8LE SINK OP* /4X«*N0* MANUFACTURER AND KG SHAPE 

3 AREA CUBIC alpha/ WAITS DENSITY CONST* RISE HATE MASS TEMP, 

4 DEG K/{F) M0DE*/12)^* ’REMARKS <L8S) SQUARE 

5 CM EMISS MIN/ Q/A HOURS 0E6 K/HR W-HR/^ DESIGN QUA 

6L */44X9*CM <FT) max w/ m2 MIn OEG E/HR BTU/F 

7 MIN MAX MIN MAX*/43X* * (FT) *23X* MW/FT2) MAX MIN MAX*/1X, 
8127(«-*)9/) 

1102 FORMAT(52X,FS.0*4X,e5*0) 

1103 F0RMAT(2Sx»A4) 

1104 F0RMAT(27X,F6*1 98X*f6,1 •9X,F6,1 ) 

1105 format (27x,FG,I ) 

1106 F0RMAT(39X9FS*3,1 fX»F5,3) 

1107 F0RMAT(32X?FS,U9X,4A6) 

1108 FORMAT(2(feX9f5*l93x*F5,0) ) 

1 109 format (IX* a 4« 13* 1X,3A6«FS. 1 »3Xf A4, 3X *F6.0,2X#F6,0* lXfF4.2, */*3X, 
1I3*«/ « 13* »/*I3*lX,FS,2*2X*l3*?X,l3*2X,F5*l*4(2X*13) #4X*A4,/ 
29X«3A6** (•F4,1*») *9 X** (bFa.I**) *2X** (•E4.2**) *1X*F4.2*4X*I3«1X** (• 

313* »/»I3*M •F5,2*EX9l3*2X, I3*?X*F5.1 *4(1X>I4) ) 

1110 Format ( 6X9 1 1A6) 

1111 FORMAT(10X9llA6) 

1112 FORMAT ( 36X 9 A3fl2X*A3* 10X*A3) 
lU3 FOHMAKIH ) 

1114 FORMAT (10X96H»<h>»**« « NOTe CONDUCTIVE HEaT LOSSES MUST EXCEED • 

1 F5*0*» AND ’ F5.U** TO MAINTAIN THE MJN aNO MaX OPERATING TEMPO 
iU5 format nox96H*«*»**, • note conductive heat losses MUST exceed • 

1 F5*0*» AND * FS.Of* TO MAINTAIN THE MIN AND MaX QUAL TEMP*) 

C 

REWIND 12 

1PAGE*1 

JEQUIP=4H 

PI=3o1415926S36 

WRITE(6*999) 

WRITE (6* 1901 ) 

WRITE(6*1902) 

WR!TE(6* 1903) 

1 R£AD(129998*fcNn=100Q) (DATA ( I ), 1*1 *2) 

IF(0ATA(2) ,E0«6H SP) GO To 2 

60 TO 1 

2 DO 3 Jsl93 
READ(12f 1001) IDUM 

3 CONTINUE 

HEAD(12*i002) ( DA 1 A ( I ) * 1 = 1 * 7 ) 

READa2fl002) DUM 

READ(12*1004) lEdUlp, NO* (EQUIP (I )* 1 = 1 *3) * (MaNUF ( J) * jsl * 3) 

IF(IEQUIP,EQ»JEQUIP) GO To lOO 

JEQUIP=IEOUlP 

ILINEaGO 

IPA6E=IPAGE*i 

WRITE{6olOOS) IPAGE 
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WKIT£(69lO03) (0ATa<1) 91®!*?) 


IF(IEQUIP.E0«4H 

IMU) 


60 

To 

11 

imE(iUIP,EQc4H 

ST) 


60 

TO 

12 

If (IEQUIP oEQ*4H 

STE) 


GO 

TO 

13 

IF ( IEQUIP»EQ»AH 

HS) 


GO 

To 

U 

IFUEQUIP.E(^o4H 

HSE) 


GO 

To 

15 

IF(IEQUIPsEQ®4H 

LR) 


GO 

To 

16 

IF (XEQUIP,EQ*4H 

LRE) 


GO 

To 

17 

IF ( lE(^UIP,FQo4H 

TV) 


GO 

To 

18 

1F( IE0UIP«EQ»4HACSE) 


60 

To 

19 

IF (lEOUIPaEO®4HA^IO) 


GO 

To 

20 

IF (IE(.»UIP«EQ*4mC0MP) 


60 

TO 

21 

IF ( IEQUIP.EQ*AH 

TR) 


GO 

To 

22 

IF(IE0UIP«EQ*4M 

OAU) 


60 

TO 

23 

lF(IEQUIPeFQ*4H 

TF) 


GO 

To 

24 

IF (IEQUIP,EQ*4H 

OBC) 


60 

TO 

25 

IF(IE(aUIP,EQe4H 

TPr) 


60 

To 

26 

IF<IEQUIP.FQ*4h 

tfm) 


GO 

To 

27 

IFUEQUIPoEQ®4H 

PA) 


GO 

To 

28 

IF ( IEQUIP,E0*4H 

HJ) 


GO 

To 

29 

IF (I£yUIP9EQ«4H 

RFm) 


60 

To 

30 

lFUEQUIP«E(a*4H 

F) 


60 

To 

31 

IF(IE0UIP,EQ*4H 

DEC) 


GO 

To 

32 

IF(IE(3UIP«EQ«4H 

MP) 


GO 

To 

33 

IF(IEQUIPoEQ*4H 

OA) 


GO 

To 

34 

lF<I£0UIP,EQe4HPP£S) 


GO 

To 

35 

IF (IEQUIP,EQo4HT£MP) 


60 

TO 

36 

IF (lEaUIP.EQ*4H 

POS) 


60 

To 

37 

IFUEQUIP«EQ»4hVOLT) 


GO 

To 

38 

IF(I£QUIP.£Q*4HCUHR) 


60 

TO 

39 

IF(IEQUIP«EQ*4HFL0W) 


GO 

TO 

40 

XF(I£QUIPoEQe4HLLLV) 


60 

To 

41 

IF U EQUIP, EQ»4H0l6C) 


GO 

To 

42 

IFUE0UIP,EQ.4h 

FC) 


GO 

To 

43 

IF (IEOUIP.E««^H 

BAT) 


60 

To 

44 

IF(IEQUIP,EQg4H 

PUU) 


60 

To 

45 

IF ( IEQUIPoFQ*4H 



GO 

TO 

46 

IF(IEaUIP,EQ®4H 

SS) 

Q 

GO 

To 

47 

IF(1EQUIP.EQ.4H 

R6) 


60 

To 

48 


wfti T£ (6® iOlO ) lEUUIP? NO 

call exit 

11 «^rtITE (691011) 

GO TO 100 

12 Sprite (6* 1012) 

GO TO 100 

13 BiRITE<6* 1013) 

GO TO 100 

14 WRITE (6o 1014) 

GO TO 100 

15 white (6*1015) 

GO TO iOO 

16 WKlTE{69iul6) 

GO TO 100 

17 WRITE (69 101 7) 

GO TO 100 

18 WHIT£(69i018) 

GO TO lOU 

19 WRJ TE (6* 1019) 

Go TO 100 

20 e)WlTE (6* 1020) 

GO TO 100 

21 WHlT£(69l021) 
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(30 TO 100 

22 White ( 6? iu?2) 

(30 TO 100 

23 WKlTE(6»la23> 

GO TO 100 

24 WRITE (69I024) 

60 TO 100 

25 WHITE(6»1025) 

GO TO 100 

26 WRiTE(69i026) 

GO TO 100 

27 WHITE(6«1027) 

GO TO 100 

28 WRITE(6*A028) 

GO TO 100 

29 WHI TE (6*10291 
GO TO lOU 

30 WHITE (6* 1030) 

GO TO lOU 

31 WHITE(6*1031) 

6U TO 100 

32 whiTE(6*1032) 

GO TO 100 

33 WRITE(6*1033) 

GO TO 100 

34 WRITE (6*1034) 

GO TO 100 

35 «RITE(6*i035) 

GO TO 100 

36 WRITE(6*1U36) 

GO TO 100 

37 WRITE (6*1037) 

60 TO 100 

38 WHITE (6* i03B> 

GO TO 100 

39 writE(6,1039) 

60 TO 100 

40 WRITE(6*i040) 

GO TO 100 

41 WHITE (6* 1041 > 

GO TO 100 

42 WRITE(6*1042) 

GO TO 100 

43 WHITE(6*1043) 

GO TO 100 

44 WRITE (6* 1044 ) 

60 To 100 

45 WRITE(6*1045) 

GO TO 100 

46 WHIT£(6*l046) 

60 TO lOU 

47 ^RITE(6*1047) 

GO TO 100 

48 WRlTE(6*iU48) 

100 Continue 

lF(ILINF«LT.b6> 60 To 109 

WRITE (6* 1 101 ) 

ILIN£sl5 

109 RtADa2*1102) 00CTC» OOCTH 
DO no 1 = 1*2 
ReAD<i2*i001) lOUM 
no CONTINUE 
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RtAO(l^alO^) OTTKC* OTTWH 
Hfc.AUU^?1103) IPAC 

IF ( IPACeEQ.4HRECf ) I1PAC=1 

IF ( IPAC^EO.^rtCYLl) ITPAC=2 

IF UPACpEOeAhSPHfc) IIPAC=3 

R6ADn?»l 104) XL® W? H 

ALC-XL«?*S4 

»<C=W*2.54 

HC=H«2»54 

IFniPAC-2) ill? U?® 11 j 

111 AC=2,« (HC» (XLC+WC) +WC4KLC) 

A=2*»{H»(XL + wO+W»Al)/144» 

VC = XLC*WC<^HC 

V = XL<»W*H/172«o 
GO TO 114 

112 AC=2o4PI<» (WC**2«WC»XLC) 

A=2,*PI* < W»42 + rt*XL) /144, 

vc=pi»xlc*wc*«2 

Vspl«XL*w<«*2/l728» 

GO TO 114 

113 AC=4o«PI^wc*^2 
As4.*PI4W»«2/144* 

VC=4o/3«»Pl*WC«<»3 
V=4o/3««Pl*W«*3/ W28« 

114 COMTINUF 

HEAD( 12» 1103) IMAl 


IF (1MATo£w*^HALUM) CPC-,208 

IF ( IMAT,EQ,4MHAGN) CPC=,23B 

IF ( IMAT,E0.4HSTAI) CPCss,11 

IF ( IMAT,E0,4MRERL) CPC*,38 

IF (lMAT,E0p4HEP0X) CPC=,28 

HEAO(129l lOb) CW 
HEAD(129ll0b) TW 


rRs(Cl«^CPC+,2«(TW-cw) ) 

TMWK = TM«b,/ ( 

CWK = Ch4.453b'^23T 

rwK = Tw<»,453S'9>237 

HEAD ( 12« I lOfe) ALPHAc EMlSS 

HEAD ( 12* 1 107 ) SSP» {DATA(I)«I=1»4) 

PC = 0, 

Pm = Oo 

HtAa<12®U0H> PC9 TC» PH® TH 
KEADa29ll07) OP» (DATAU) 9lsl®4) 

QMlN=:SSP-»-PC“OP 
QMAA=SSP+PH-0P 
I0M1N=UMIN 
IQMAX = (JMAX 
UO 116 1=194 
HEAD(129iil01) IDOH 
116 continue 
IOM=4h 

HEA0(129lll2) I3l® ITO? ITP 

IF ( 1ST, F0,3H ON, AnOo I T0oEQ,3h ON, ANf)e ITP.EGo3H ON) IOM*4HCOMT 

IF ( IST.NE,3H 0N,0H,lT0,Nt, 3H ON , OR « I o NE , 3H On ) I0M=4H I NT 

CALL SINK (D0CTC9 00CTH9DS'''»I vOSma »OMIN«0mAX 9 A 9 EM 1 SS 9 QDCC 9 QDCM) 
CALL SINK(0T TRH 9 OSHI 9Q5ma90MIN»UmAX*A5EniSS»0QCC90QCH) 

Call convpt (dsmi ^dsha^osmik^osmak) 

Call convht tosMi « qswa»qSmik905mak) 

IPDLMsOMIn/ AC«IoE« 4 
IPUHHsQMAX/ AC^loE-i-A 
IPDLF=QmIn/A 
IPOMF=OMAX/A 
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AHRL-OMIN/TM 
AWRH»OMAX/TM 
lRRLKs:ARRL«»5®/9e 
IRRHKs:ARRH*5»/9. 

IRRL=SARPL 
IRRH*ARPH 
I0SMI=DSMI 
IUSMAsDSMA 

idsmik®dshik 

IUSMAK«OSmaK 
IUSMIsQSMI 
igSMAsQSMA 

Iqsmik®osmik 
I gSMAK®OSMAK 

CALL TIMCON (IM» A»OMlN»EMlSS*nf>CTH^TCL) 

CALL TIMCOn (TM»A»QMAX*EMlSS«noCTHf TCH) 

WRITE (6« 1109) IEQUIP,N0» (Equip ( I) *1=1 «3) , TWK» IPAC* AC* VC* alpha* 
IIQMIM* IPOlM’ IPOHM* TCLMRRLK* JRRRK* TMWK* loSMiK* IDSMAK* 
2IQSMIK9 IQSMAK* IUM* (MANUF ( I) * Irl *3) « TW* A» V« EMISS* IOMAX* 
3IP0LF* IPOHF* TCH9IRRL* IRRH* TM, IDSmj* IOSMA, lUSMl* IQSMA 
ILINE=ILlNF9-<f 

U7 RtAOa^*lnO) (OATAd) *1 = 1*11) 

IF (DATA(I) ,EQ.6H*^«***.0R.f)ATA (1 ) ) G0TO118 

WRI re{6*lill) (OAf Ad) *1 = 1*11) 

ILINE=ILINE*1 
GO TO 117 

118 continue 

IF(Q0CC*6T, 0, ,0«. 0DCH.6T* 0*) GO Tn I3l 

130 IF(QQCC«GTa W. .OR. Q0CH-6T* 0*) GO To 132 
GO To 133 

131 WRlTE<6*m^) QOCC* QDCH 
ILINE=ILINF+1 

60 TO 130 

132 WRlTE(6*Ulb) OQCc* QQCH 

iline=iline*i 

133 continue 
WRITE( 6*1U3) 
lLINE=ILlNE4i 
00 119 K»l,50 

READd2*998) ( OAT A { l ) * Jr 1 , 2 ) 

IF(DATA(1 ) ,EQ.6H LnO**) GO To 120 

U9 CONTINUE 

120 lFdLINE.6T*i>l) JE(3UIP = 4H 
60 TO 1 
luoo continue 
return 

END 
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»FUK»IS C0NVRT»C0NVRT 

subroutine CUNVRT (Ti»T2’TiK»T?Kj 

TlK=(5o/9,)<MTl«^b9,67) 

T2K»<5,/9.)*(T2^4S9.67) 

return 

end 
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MpURfflS SINK*SIW 

subroutine sink (T 1 ,T2f TSl » TS2 , ol * Q2 « A t FMl SS * QCC « UCH ) 
OJCCsO, 

UCH=0. 

SI6MA=* 17i4E*R 

IF( {T1*46U,) *#4.LT« Q2/( •293*SI(?MA«A*£mISS) ) GO TO I 
TSls < ( (T1*46«* ) - 02/ ( •293*SIGMA*A*fmISS) ) 

GO TO 2 

1 TSI=0. 

QCC=Q2”«293*SIGMA<^A«EMISS« (T1>460o ) »*4 

2 TS1=TS1-460« 

IF < (T2v460«)«*4*LT, Q1 / ( • 293*SIGMA^A«EMI SS > ) GO TO 3 

TS2a ( ( (T2^460. ) **4) • 01/ ( ,293»S I 6MA»A»EMISS ) ) ***2b 
GO To 4 

3 TS2aO, 

QCH=Q1-,293»SIGMA*A*EMISS*(T2^460*)*<»4 

4 TS2aTS2”460. 

return 

End 



F0«,IS timcon* T IMCON 

SUBftOiJTINE TlMCON ( TMf A • *E • TS I NK * T IME ) 
TINT=70« 

Also, 67 
Sl6al,714e-U'5^ 

U=Qw/,293 

TS«TSINK*460* 

T0=TInT*460, 

TS4=TS«*4 

TF4= (0*SIG«E*A*TS4) / (SIG*E*A) 

TF=TF4«*0,25 

TFIN=TF-460, 

TF3=TF4/TK 

T*TO* (TF-TO) *A1 

A2=4,«TF3«5I6*E*A/Tm 

A3s( (T^TF)*(T0-TF) ) / ( (TO^TF) *(T«TF) ) 
A4=AUOG(A3) 

A4A»T/TF 

A4BSTO/TF 

Ab=2,« ( ATANC A4A^ -ATAM(A4B) ) 
TIME=(A4^A5)/A2 

return 

END 
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